perm filename MESGEM.HDR[SAI,BGB] blob
sn#102674 filedate 1974-05-17 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001 VALID 00002 PAGES
C00002 00002
C00005 ENDMK
C⊗;
REQUIRE "MASTER.REL[SAI,BGB]" LOAD_MODULE;
REQUIRE "⊂⊃⊂⊃" DELIMITERS;
DEFINE XSUBR=⊂EXTERNAL SIMPLE INTEGER PROCEDURE⊃;
COMMENT BASIC GEOMED, IO AND DISPLAY;
XSUBR MKUNIV;
XSUBR GEODPY;
XSUBR SHOW1(INTEGER WINDOW,GLASS);
XSUBR SHOW2(INTEGER WINDOW,GLASS);
XSUBR INB3D(STRING FILNAM);
XSUBR INCAM(STRING FILNAM);
XSUBR FDNAME(STRING FILNAM);
COMMENT EUCLID;
XSUBR TRANSL(INTEGER Q;REAL X,Y,Z);
XSUBR ROTATE(INTEGER Q;REAL X,Y,Z);
XSUBR SHRINK(INTEGER Q;REAL X,Y,Z);
XSUBR MKCUBE(REAL A,B,C);
XSUBR MKCYLN(REAL A,B,C);
XSUBR MKBALL(REAL A,B,C);
XSUBR LAC(INTEGER Q);
XSUBR CAR(INTEGER Q);
XSUBR CDR(INTEGER Q);
DEFINE NFACE(Q)=⊂CAR(Q+1)⊃;DEFINE PFACE(Q)=⊂CDR(Q+1)⊃;
DEFINE NED(Q)=⊂CAR(Q+2)⊃;DEFINE PED(Q)=⊂CDR(Q+2)⊃;
DEFINE NVT(Q)=⊂CAR(Q+3)⊃;DEFINE PVT(Q)=⊂CDR(Q+3)⊃;
DEFINE DAD(Q)=⊂CAR(Q+4)⊃;DEFINE SON(Q)=⊂CDR(Q+4)⊃;
DEFINE BRO(Q)=⊂CAR(Q+5)⊃;DEFINE SIS(Q)=⊂CDR(Q+5)⊃;
DEFINE ALT(Q)=⊂CAR(Q+6)⊃;DEFINE ALT2(Q)=⊂CDR(Q+6)⊃;
DEFINE CW(Q) =⊂CAR(Q+7)⊃;DEFINE CCW(Q)=⊂CDR(Q+7)⊃;
DEFINE NUF(Q)=⊂CAR(Q+8)⊃;DEFINE PUF(Q)=⊂CDR(Q+8)⊃;
XSUBR ECW(INTEGER E,FV);XSUBR ECCW(INTEGER E,FV);XSUBR OTHER(INTEGER E,FV);
XSUBR VCW(INTEGER E,F);XSUBR VCCW(INTEGER E,F);
XSUBR FCW(INTEGER E,V);XSUBR FCCW(INTEGER E,V);
XSUBR BDET(INTEGER B);XSUBR BATT(INTEGER B1,B2);
XSUBR INVERT(INTEGER E);XSUBR EVERT(INTEGER B);
XSUBR MKBFV;XSUBR KLBFEV(INTEGER Q);
XSUBR MKEV(INTEGER F,V);
XSUBR ESPLIT(INTEGER E);
XSUBR MKFE(INTEGER V1,F,V2);
XSUBR GLUEE(INTEGER F1,V1,F2,V2);
XSUBR SWEEP(INTEGER F,FLG);
XSUBR MKCOPY(INTEGER Q);